home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / MacII / Design Edge / Spoolers / Spooler / Spooler.rsrc / LSPS_256 < prev    next >
Encoding:
Text File  |  1988-01-21  |  371 b   |  10 lines
  1. qsystemdict /statusdict known {statusdict begin /waittimeout 0300 def end} if
  2. save
  3. /chkfont {dup cvn FontDirectory exch known
  4. {dup length 7 add string /tmp exch def
  5. (|______) tmp copy pop tmp 7 3 -1 roll putinterval
  6. FontDirectory tmp cvn known} {pop true} ifelse
  7. and} def
  8. userdict /md known {md /av known}{false} ifelse
  9. dup {md /av get 49 ge {/chkfont {pop} def} if} if
  10.